home *** CD-ROM | disk | FTP | other *** search
- ; START DEMO1.SUB this goes with DEMO1.MAC for DANCAD3D v2.5x
- ; Copyright (c) 1990 by Daniel H. Hudgins. All rights reserved.
-
- TEXT ; Clear the screen
-
- ECHO ┌─────────────────────────────────────────────────────────────────────────────┐
- ECHO │ DEMO1.MAC DEMONSTRATION MACRO FOR DANCAD3D v2.5x OR LATER. │
- ECHO └─────────────────────────────────────────────────────────────────────────────┘
- LOCATE 1 5
- ECHO This macro creates a series of pixel frame files that form a frame sequence
- ECHO for the animation of a piston, rod, and crank shaft. DANCAD3D macros are
- ECHO scripting files of common ASCII format text, and can be created with the
- ECHO internal text editor, Write from the main menu, or any pure ASCII text editor
- ECHO or word processor. The macro commands correspond to the menu commands in
- ECHO DANCAD3D, for instance, Rotate in the menu is ROTATE in the macro code.
- LOCATE 1 12
- ECHO The macro begins by setting up a quick loading elements file set that is
- ECHO loaded automatically by the LOAD command in the main animation loop in macro
- ECHO DEMO1.MAC. The RUN macro command in macro DEMO1.MAC allows DANCAD3D macros to
- ECHO automatically run sub-macros (subroutines), in this case the file named
- ECHO DEMO1.SUB.
- LOCATE 1 18
- ECHO The main loop of the macro takes advantage of DANCAD3D's comprehensive
- ECHO kernel of mathematical functions. DANCAD3D macro language allows for variables
- ECHO to be used to hold and calculate values that can be entered automatically into
- ECHO any of DANCAD3D's commands that operate on elements of the drawing in the
- ECHO workspace. The ANIMATE command at the end of the macro loads the pixel file
- ECHO set and displays the frames on the computer screen.
-
- LOCATE 1 25 ECHO <<< Read the above information while the program is working... >>> %%
-
- { Set up quick loading set of elements. }
-
- INITIALIZE ; Clear the workspace.
- LOAD ASCII DEMO1A.ASC
- LOAD ASCII DEMO1B.ASC
- LOAD ASCII DEMO1C.ASC
- SAVE ELEMENTS DEMO1.3DE
-
- BEEP
-
- LOCATE 1 25 ECHO Press the [Return] key when finished reading the above information. %%
-
- WAIT ; Wait for [Return] or [Mouse-Left] button to be pressed.
-
- LOCATE 1 25 ECHO <<< Working: Macro now running, please stand by... >>> %%
-
- ; END DEMO1.SUB
-
-
-
-
-
-